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This report describes the Recoverable Item Management Evaluator (RIME), a 
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Section I. 
pee. ot Introduction 
¥ This is the second of two volumes describing the features of the Recoverable 
3 Item Management Evaluator (RIME). RIME is a FORTRAN-based model of a 
} 5 multi-echelon inventory system consisting of a depot level repair facility, possibly 
nt several operating bases and an aircraft overhaul facility. The model was 
Rey specifically designed to evaluate proposed inventory management policies for the 
es control of Air Force Logistics Command recoverable item spares. Volume I of this 
a report describes the philosophy, organization, and input/output features of RIME. 
es TNs volume documents the statement listings of each RIME program, and provides 
7 narratives describing the function of each of these routines. 
S This Volume contains four major sections. Section I documents programs used 


in the RIME Exogenous Events Generator, while Section II documents programs 


a: 


wed in the Levels Computation System. Section Ill documents programs in the 


ay RIME Simulation Model. Finally, Section IV documents Job Control Language files | 
es required to execute the RIME System. | 
« Within each section, routines are presented in alphabetical order. Documenta- ! 
7 tion of each routine consists of a program narrative and a listing of the FORTRAN : 
i code for that routine. Additional comments are included as a part of the 

| FORTRAN code for the more complex routines. Definitions of major RIME_ 

t variables are documented in Volume 1, and familiarity with the contents of Volume 
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BASEDA 
EVTGNB 
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Function: 


fee This routine determines the number of SRU failures to relate to the current 


Fi LRU reparable generation event. 


2 Calling Parameters: 


| 4 LBRGN = Total number of LRU reparable generations remaining 
42 to be considered. 
a NOSRUF(K) = _ The total number of SRU K reparable generations remaining 
i to be assigned to LRU reparable generations. 


NOINL(K) = The number of SRU K reparable generations to be assigned 
3 | to the LRU reparable generation currently be considered. 


Description: 


is "Routine ASSIGN first computes the total number of SRU failure exposures 
rs SRUEX. This equals the total number of LRU reparable generations remaining 
(LBRGN) times the Quantity Per Application (IQPA(K)) for SRU K. The probability 


4 _@ specific unit of SRU K of the current LRU has failed is then PsNOSRUF(K)/ 
ti . 

SRUEX. Subroutine ASSIGN obtains a.uniform random number R by calling 
3 subroutine RANDU, and-compares this number to the probability P, If R=P, we 
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‘i & 
j assume that the current SRU is- related to the LRU failure and NOINL(K) is 
incremented by one. This Monte Carlo process is then repeated for each SRU 
: Component contained in the LRU. At the conclusion of the routine, NOINL(K) 


contains the number of reparable generations of SRU K to be associated with the 
current LRU failure. 
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Subroutine: BASEDA 


Function: 


This routine inputs order and ship times and flying program data by base. 


Description: 


This routine is used by both the Events Generator and the Level Computation 


System to input order and ship time and flying program data by base. If the write 


flag IWT(12) equals 1, the routine prints out all input information. 
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Subroutine: EVTGN2, EVTGNB 


Function: 


This routine serves as the main program for the Events Generator. Program 
EVTGN2 generates exogenous events for LRU/SRU families that require no more 
than 2,000 events on the Future Events List (FEL) by any one ‘ime: while program 
EVTGNB is used for larger event families. At present, EVTGNB permits up to 
3,000 events on the FEL at any given time. 


Description: 


For a detailed description of the Events Generator, see the Events Generator 
Chapter of Volume I. 


ee hn Pe eee OF et a ae a a a el res : ‘ sages Cee tie wom te te 
a a”, 4 Sw Me Vs on 8 


PAL ar ita te a a eae ea ae ee OY Oe Ww Ws I eapero 


owe Oe Ow ae ve Toe ee Pm om 8 4 a 8? pk ef? a 
Meee ee a ate eg i ee ie ae em Rn Pe! 


* 


Pa we. eer ae 


ere eee ae ee ee ee Ree ae SL EEE Sa kaa eee ee ee OR eh 


FO 
¢ 
> 


{ Re e@ cae 2 2 2 li 
ar | *EvTGN2.S 
carne ened toate reas Er 
z & Coeeceeeqee:: en pesecsguccsacessnccsopEPTHeE GAS? COMMNONSeseee 
: @ ge. 
: 6 DIKEMBION WSET(1) 
s f 8 EQUIVALENCE(MSET(1),QSET(1)) . 
oe BCOMS/ ATRIB(30) SEUNG MFA MFE( 100). MLE( 100) MSTOPONCROR, 
& = NMAPOWNAPT, MUATRANWFIL, BNO 100). NUTRY, MPRNT, PPARM( 50,4) sTROV, TIBEG, 
bec 


COMMON /GCOM6/ BENQ (100) ,T2WN6100) ¢ KKREK{ 100) pMHAXQ( 100) 


6 COMMOM/£DBUG/IDBUG 
4 8 COMMON/SFGRD/NPGRE ” 
ag i aoe the ei ee le eee, is nk a oe 
BO oa COMMON/HLGRD/NLGRP 
dan > sts... 
ver COMMON/RJOB /N JOB 
i Gt 13 —_______Comnoussau asi 
f oy COMMON/HITEN/HITEM 
Boos! Seiad Sat ANS i apres aha 
Bt 26 COMMONW/EWE/rWP(29) 
4 it -ceaeeaeieee 
4 COMMON /OSTDLY/OSTDLY (8) 
{a COMMON /BBH/BPH (24,8) 
: COMMON /CPROB/CPROB (8) 
1 py 32 COMMON/HENTRY/HEMTRY = pe nt in 
a eB hah ord 
Ae COMMON/NTIME/MTINE 
° ocr sat hae St 
36 COMMON /JPSH/JFSH( 2.00) 
~ 38 COMMON /JBRIOR/IPRIOR (2000) wee ee ee 
Riad COMMOM/ITIME/JTINE(2000) 
: pEAITYPE (2000). 
wn 42 c 
BA, es Secret : 
pau COKMON/ERSE/IRTS (16, 40 
: ON/gBcOuDsTaCOND( 16,00) 
c yt COMMOM/ENRTS/ZNRTS(16,40) 
a edecowD/IDCQuUD (16,400) . 
) “38 COMMON/EDREP/ZDREP( 16,40) 
; ia COMMON/EPPROG/IPPROG (16,40) ee 
a CB Fo ee 
1 52 c 
i, EVIGN2 
So aa a 


ad 


CEVA SAC TER 


Powe ete 
Chay ee, rs 


B01 _Liel 2979 15.594 «S 


54 ceecen ucont/ occa: (<>) 
56 COMMON/LTBROD/LTPROD (40) 
oO) sy 

38 COMMON/2BDTT/ILBDTT(40) 

& COMMON/LOST/IOST(40) 

52. ON é 

$2 ' COMMOS/RTSF/RES?F (40) 

$3. sss COMMON SDAP Seen ee 

Su COMMON/BOUF /ZBOHF (49) 

36 COMMOW/OPDDR/DPDDR(40) 

62 CCM ON/ DI RC EDs PIRCWD (40) 

58 COMMOR/PNIRC/BNIRC (40) 

§9_-_______COMMON/OTBBRR/OTMBRE (40) 

? COMMON/BCONF/BCOMF (4C) 

72 COMMON/ENCHF/BNCHF(UO) | 

73______ COMMON, pOgcHF s/DONCNP (40) 

74 CONMON/ BMSCNF/RMSCKF (40) 
RE/RQENRF (GO) | 

76 COMNOR/ACOSt/RCOSE( 40) 

76 COMMOMN/TRINTR/IRINTR(40) 

@ COMM ONSTOPAJIOPA(UO) — 

2 Cc 

32 COMMON/WBRTS/NBRTS(40) 

i6 COMMON/NBCOND/WBCOND (40) 

18 4Q) 

6 COMMOR/ HODRPT/NODRPT (40) 

i CC OMMON/pogRUP/NOSRUF (40) 

18 COMMON /NBRGNT/NORGNT (4) 


’ COMMON /NDCONT/NDCONT (4v) 
‘1. COMMON sNOVG NP /NOYGNT (40) 


12 COMMON/NDEXlo/NDEXPO(40) 

Ta a EE ret 

uy COMMON/LRES/LRTS 

6 COMMON/LBRGu/LBERGH 

1 COMM ON/ EL BCOND sLBC 7 

‘ COMMON/LORGH/ELDRGR 

‘9 CC OMMON/ EL DRGNT/LDRGNT 
COMMON/LDREFT/LDREPT 

2 COMMON/LOYVCNT/LOVCHT 

at GOMMON/LOVGET/LOVGHT. 

4 


COMMON/LOCONT/LDOCONT 


§Q)_0.. 


Sane Bae Bae Pe te a ee ne = 


12 


meee ee ee ere ete meee | ne oe ee cee, 


rc en eee eee ei ee 


ca “tak 


ry . 2m ee ot 


eta/t 
COMMON/ZTDAY/ITDAT 
TENTH 
COMMON/tTaTR/ITOER 


COMMON/ITINV/ITINY 


i<De me: 


ites’ 


WAMELEST/DATA1/LERTS?, LDRGNT, LOCARE, eereere Peyeate BORER NSRU, NITEM 


CHARACTER FsN*i5 Sayer Tae 


---—-—-_BBEAD SIMULATION -BARAMEGERS 
WRITE(6,13)" .MPGRP, SLGRP, MAASES, XNOTR, BREPL” 
i4-.—.—--—-—-READ{Se18) NEGHP, MLGRESKBASRSSTHOTR, REPL 
22 WRITE(6, 23) NFGRP, NUGRP,KaySBsS,IWQTR, NREPL 
}3—____23 rommathsoz2)— 


READ(5S,4391W7 


we HWE: fae, os E 
3 YORMAT(//®VRITE FLAGS®",4(9x7522)//) 


IPRETSIVY (8) 


IDBUGZIVT (10) 


$6 
re Waite “BXOGENOUS. FILE HFARER RECORD 
(ne a a BS 

Reset WOASES: 10. CORRBSpOaD To INPUT ‘PARAMETER 


— MBASESEKEESES 
IF (TOUT, BO, 1) WRITE (8) HEGRE, NIGP, eee sees WREPL 


ISEQs. 


uit P. oBebe cid 


MAXPEL#0 


ETAT EE YER ae Oey ns 


7 % eT wet 


a eae Oe hee 


4 

i ee 
[ Spee seceeee Reena aenee Rae ee? 

= 4 C SET fIuiInG VARIABLES BASED ) ON 190 PINE “UNITS PER DAY 

| a ee yy er WEEKS/OQUARTERs - 4 QUARTERS /TEAR 

t 52 c 

| 4 s pi ae Senn ee hs an Pa eh 
*) 54 ITWEEKws7RITDAY 

) 55 CT MNTH UAT TW PERC 

A 56. ITOQOTRES*TIMNTH ; 

Se 52 CTY RAR OTR, 

28 58 Cc 

i gir FIRST (NFGRPo%) LRU GROUPS ON FILE O07. _.... 


6g. Se 
7 CALL READE?! 
4K TPN PG RP el... 

72 IF (NSKIPeLE.O§ GO To 60 
723. 5 NG at SKIP 


La as 


74 NGROUPSNG 


Ty 


16 IF(IENDF.Epe1) GO TO 980 
272. CoMTINUR 


76 60 CONTINUE 


ae. NGsuk SRP»NLGRP 

NGROUP#NG 
is upreese. ia) °RegrH. LRU GROUPs?,NG 
36 13 FORMAT(¥) 


26 ¢ SET LRU AND SRU HEADER SATA | 
SERRE n-ne meter verse ey 
? CALL READPL(IENDF) 

a1 CEC TEND ERO, 19G0 70.980 _ - 

22 c BEGIN REPLICATION LOOP 

a DO 99. KREPL™4,NREPL 

je 0 9: SEREPLYECURETL «gy Samaz¥_ MEPLECARZON®?  RABPL 


Yee A ey A eR ee ET eee ne ee eS 
38 Cc RESET JOBS COUNTER 


NJOB#1 00 


2 C INITYALIZE THE FUTURE EVerT@ LIST 


6 ¢ " yWETTAUIZE DEPOT 
Pieters Ee EVEWT COUNTERS 


ae oe 


. 


LARP 
rn toe} 


ere 


. Be Abel 
<r 


: 


* 
af. 


% 


eS ee ee eee ee ek ee ee So ie 8 Re Wa Pe Lee eee te a ete Me Le es fle Se Me 


; ei ae hehe Se ae ee ie 


Nee ae ee ee | 


He c Deore ‘QUARTER LOOP 
42. Ca meeeeee2e” gebnates 


PY TT iret CP ite Soot Qe wQaeetean 


a ITINVELOTR ces 

: c INITIALIZE BASE PROBARIETEY ARRAY CPROB, ary 
au CALL BapBst(Z2zHV) - os 
1 Reena - Arann haere 


29—__—___—_-CALL OBE S2;TeruY) _ 
3° c LeOp THROUGH EACH LRU PAYLUBB(L) WHERE L = Vee een LBRON 


p4——___-¢— 
32 IP(IPRNT.BQ. 1) CALL SRUPRT 
a Sane ee Er aes 
34 
G5 __EaaensnencncaceensseBEAI0 BI BA42 AOMDSHAATION AND. 178 GEYERATION 
c 


ao er ee LRUEV? (LUD TO .HLRUE.NIOR.2) 

a2 

Gs oan. en. Seren aaE GEbOE REP. GBn EBVEnTS,. IF ANY 
c 


GS. —— = es — BMTOOVELORGNeLOCOND ss A ee te ene eee ” ene 

n6 TP(LORGH GT. OCUCALL LRUEVT(LORGH, NTOOV,NIOB, 3) 

1 Es aerate 

08 Coamsseceuszguent iD “OF “Leu. ‘RVENT. GENERA TTOveenenencnccces 

OS Oe tea 2a ME eG Na, las 

5i 54: CouTinug 

52 WRITE(6 HATA) ee ee 
54 58. CONTINUE rene a ew 

AS eae nee ae A SA 2 Et 

36 ¢C GENSRATE INDEPENDENT. SPU EVERTS, IF ANY 

a a aes es re 5 peta ee 
58 CALL asutyo 

6: ¢c 

OP; aeRO aaa oe en ie RT See Ree eee NPN MENS eae NN Bo Dpce he Ste ne 


Tere 
! 
i 
| 
| 
1 
{ 
! 
i 
| 
1 
| 
d 


a = 22 168.3894 .%.8§ . ee ee ee ee ne. a a 16 ba 
an v t) a ND WRITE = 
B 62 Cc THEM TO THE EXOGEPOUS EVENT FILE. AT END, 
TF a en gg POT OO. ce os. 
P 64 6U. CONTINUE : 
ee Gi Fe es 
fh; 66 c RECORD MAX ENTRIES TO THE POE OLe | 
is Dn eo a ee he oe Bb 
68 MAXFEL®MAX (MAXFEL,NENTRY) | 
A ee Ae 
7: Cc REMOVE EVENTS FROM THE FEL. 
oo Rae 
72 JQEND#LOTR*ITOTR 
F3o s PIEUTSY 0) G0 TO. P00 en Se a Se 
76 - IP(NTIME,GT.JOEND) GO To 700 
275s CC CALL REMOVE (KTINE,KTYPE, KES KOTYeKPBL) . 
76 IF (IPRN2, BO, 1)WRITE (6,647) KTIMB,KTYPE,KPSN,KQTY,KPRI 
22.17 FORMAT Mek yOyEsetee® a2 
78 IP (IOUT EQ. 1) WRITE (8)KIIGE, KEYRE, RESHsKOTE KPRI 
= —_ 
8: , GO TO 60° 
£4 PO CONT IBUN 2 wo ee BE te 
&2 ¢ 
6a... .c¢  EyD oF gUARTER LOOP 
84 fe 
_-1§_ WRITE (6,703) (TOPR»I21,8). { 
66 73 FORMAT( 8("eeem-END QTR",I3)/2£28 ("won") /)) 
ty eee ee 
&8 ao Covernus 
60s hy te hee 
9 ¢ SCHEDULE TYPE 10 RVENT,..."END OF SIMULATED PERXOD" 
ah ae Pt ey Ig a od, a3 
92 KTINE=99999999 
a a PETG a ert cas _ 
9u KFSNS: ‘ 
a Son 8 PVE 8 es fase ees ee oe, tas ‘ 
96 KPRI®=. 
ov CTT PRN BQ TUM RIT E(B, TY,KPRAT 
96 SL I EERE ea ha id ee KQTY,KPRI 
og. CUTOUT BO, 1) KNTOUTSKNTONTS1 OO 
G Cc 
Ot css CED OF REPLICATION LOOP ss. 
C2 99U CONTIXOE 
ou Cc EnD OF SROUP LOOP 
ss SoG eee: A 
6 16° CONTINUE 
fly Seen ae ; 
vs Cc END OF DATA SET GENERATION 
a ies MEET teas fetht. hia ee, it ads 
REWIND 08 | 
44. LW RITE(O,13) "END OF EVENT SET GENERATION’ 


12 WRITE(6,13)°NAX ENTRIES TO THE F.EL @°, MAXPEL 


=~ Tee met a 


Se ta tke cana 


dag 


we a os rae at 


* 


q 7, | ha a es ent ew fe a ae oe vee 
eee a a eR ee ee ET sate ee Tene ete. ee fee. Se 


eq 


a 


' 4 


p—O-41_4-4069079--15.$u4y. 4S 


= LA NTO 2X0G FILE =%, 
“44 & KELOyT 
i Os 


16 STOP 


-4-9-—_—_—_—_—_—__——_BBWEWD—98—_—_________-_- 
2: WRITE(6,13)"READ END“OFeFILE ON (7, STOP RUN," 
2-4—_—______WRETE(6, 43) °LAST LRU-READ Wag=®,7FSu(1) 

22 STOP 


es pO te 8 3 ned tS ae th aE EO on 
*W 7 MEMORY EXPARDBD. USE SLIMITS OR CORE=® OPTION FOR NEXT RUN 


——_ eeenmeme = oa ee = 
¢ 
are —— ae. — ee eee 


OE EE A ES re en ee cat ee em ee ss 


ee oo rete me en 


ee ea ee 88 


is ee tee Se 
ry 
e 
or 
a! 
Ss _ z 
te 
a 
een a et ee eS a ne ee ee ee emer a eae as a 
| 
A 
a ew 
= 
oe 
AY 
_ : 
e Pe - é a ee a ee Ce ee ee a sjnyo Ps Ss Sin Wie Fae eee OU lost eg eed 
es 6°>,M oor ne, a,” nes pean PERE SRE PEL eee, Pe Ga FOUR i eg Ne i Re Se Tae ORG tne oes ge en Se ER ee er ae ee 


ee 


args 


a bee Fes be 7 


ree Bee Se 8 


: a " y we ee ee te 
. eg RS Co er ee gee TE ee Go NOL Rm, ite phere et eRe aD eNO ei ere Pee ms SiS wg a eT We! Te ew eg 
eB ae Np te Reta ae eee be Oa et ete eee te Me te ta ee a eee me a et Pe ee ee ae Ra eee) 


09 1100779 14,5274. Ss 


LP 
COMMON QSzZT( 500) 


z 
COMMOW /GcOM1,/ ATREB(30) ,PVET, MPA MPE( 900) NLRC 100) HSTOP, cank, 
PANT, PPARM DL TNOWS TERPS, 
4 é TICLA,TEFING STAID EGO) TI5r? 


onnon " KKANK (400) ,MRAXA( 100 
a Tes TET FRET CI LIELP TAT A ELL: 
| 
Pe gpeeeeOee COC wee eaten er CEE EE RTAt a= PCE aGoPornagTss¥aseneroee 
(°) a 
CCHMON/ITIME/ITING 
£ COMMON/NFGRE/BPFGRE 
COMMON/HGROUP/AGRIUP 
COMMON/NLGRE/ULGRP 
COMMOK/BBASES/BBASES 
ON ACK /BIOB/NIO3 
CONNCH/ESRU/NSRY 
COMMON/NITEM/EITEM 
COMMONS ICUT/ LOT 
COAMCH/IWT/THT( 2C) 


w& 


~~ ER 


9 alow 


mg 


ned 


wd 


c 

‘3 ee OTe se Tau eta) as) 

9 CONBON/BPH/BFH( 24,6) 

a) CONMOMNSCPROB/CPRIBSO) i 
¢ F 


if 


12 COMMON/NENTRY/NENTRY : 
3 


COMMON/OPEMAX/SPEMAX 
rT" COMNURSNTINP/ATING - 
i5 COVPONSTIOCPRE/STL OC 3700) 
6 COSPOUSIFSE/JESE (3000) eee ae a ene 
"7 COPMONSIPOTET/IVOLNE (3000) 


2 
4 comme ThTaE rere eset) 

5 ON TORS EBCO ) 
6 

7 


; COMMON s/INATE/TUNTS( 16060 
s_-___gonnonauneessenees idee) 


x COMMOB/IOREP/IOREP( 16540) 
7 

0 CONMON/TPPROG/IPPROOG 16,69) 
, @ 

ia c 


bg Cte ere ct Sar etls Sw gts. ote. gry Steg ei! 
wee an wt og et ew wt 


09 41007979 = 14521 S 


CONNORS ESR/ ESE (IO) 


oF. Eeh® 


COMMON sETADR ZLTADM( UO) 
CONNON/BRE/ TBRT( 40} 
CORNON/IDNE/T9R" ($0) 


ob, bul? 


COMMONS OZMDER/OTHODRSHO} 


CONMOR/PDAPZPONF (40) 
ir} COMADESRNSEES /RNETEPGOO) 
7 CORAC ROR S EEC PEIRCED CHO) 
r CONFON/OINBAB/OTHBER(UD) 


COMMON/RICHE/SICHP(4O) 
i} & 


3 COMMON/BOHCBF/DOKCHFC4O) 
5 COMMON /BMURE /RNNRE (40) 
f COnNO RCOST/ 5 O$T . 
”y COMMNON/IBPD/IBPD{ 40) 
_ OCMnOp/IRINTR/TAINTR (UO 
9 CONMOM/ZOPA/TOPA( 40) 
4 COMMOY/HOINL/NOINL( 46 
COMMOM/HBRTS/RBRTS (40) 
3 CONNON/URRTS/ANRTS( 40) 
COAKON/BBCOND/NSCOND( 40) 
‘5 COMMON /WOVCHT/WSVCHE C46) 
; COMMOB/BODRPT/NODRPTCY 
7 ots STILL LEDER 
if COUNQUSEORENT/NDRGNT (UA) 
9 CONMOVSPDCOND/NDCOND ) 
0 CONMOMANDCONT/NDZONT CEN 
‘COMMONS POVENTNOVG as 
Connoyv EX PO/NDEXP OCU) 
4 c 
1s COMMNOR/LETS/LETS oe = 
y mememmommmaar J.) | 1) 7k 7 > A Dt ee Face g he oe = 7a 
+ Se rere 
COAMOW/LORGU/LDORGY 
G 
0 CONMOW/LOREPT/LOREPT 
~~ 
2 CORMOR/LOVCNT/LOVCHT 


4 CONNOR/LOCONT/LOCONT 


"09 T1e07=79 16.521 oS 


5 COMMON/SLDCOND/LOCOR ; 
7 COMMOR/INROTE/INUTR 
19 COMMON/TTMNTH/SITANTH 
! MONJT TTOTR 
"4 COMMONSITYZAR/SITY TAR ; 
2 COMMON/SITINV/ITINY 

' _——— 
13 c 

T G c LEVeNT REPT, NSRU TrM 
'§ c 
4 i 2 

17 
19 ¢ AZAD SIMULATIOR PARAMFTERS 
: . - R, WREPL® 
4 READ(5,13) NFGRP, NLGRP,KEASES,THOTR, NREPL 
12 WRETES(0o23) MFGRP, BIGRPAKPASES,INOTR, NREPL 
3 23 ZORMATCIVOTTS 
ae ee) 
5 Cc 
’ 2 P ‘ 
17 WRITE(6,3)IWT 
tT: 3 FORMAT(S/"WRITE FLAGSE",4(5¥,5I29//) 
9 Cc 
10 TPONTSEWT(B) 
4 IPRNZeIWT(9) 
12 IDByGelyt¢40) 
$3 ICUTBIWT (19) 
34 Cc a 
35 Cc LHPUT BASF DATA eos Nee Ge le ae 
16 c a ee REE eh 
7 CALL RASEDA 
18 c 
19 ¢c 
40 ¢ ARITE EXOGENOUS PILY YEADFR RECORD 
4 ¢ 
H c RESET NBASES SO SARR SEP IND TO INPUT FARBANETER 
‘3 c 
TY) c ! 
-) ~ NBASES#KSASES i es eee eae 
16 TFELOUT EQ, TIWRITE(CINPGRE "LORP, NBASES,IUGTRNREPL 
47 ¢ 
18 C et A ed 
9 REMANDUYO.T) 
0 Is£¢20 


4 KATOCUTaO 


i2 ¢ 

5 "3 o-oo RS ER 
wo  ¢ SUT FEL,  %IACTS i 
Le ea a 


36 MAXEFELSO 


04 «94607079 14,521 4S 


7 NFEMAX®3096 
$A 
19 c 
0 S ved. RIASLES BASED OY Q ME UNITS PER DAY 
i” ¢ 7 DAYS/WEEK, 13 4ERKS/NUARTER, 4 QUARTERS/YEAR 
33 ITDALEIOO 
58 ITWEEKATYIT HAY 
55 ITOMNTHaysTTW EEX 
; BIOTTNNT 
37 ITYEARBGOTT OTR 
|. ee ea eee ee eee 
39 ¢ SEIP THE FIRST (NPG Pad) LB GROUPS Ci FILE 97 
70 CALS READF4 
rz) NSKIPSHEGRE § 
K IR . GO 0 60 
23 DO 20 NGe1, BSKIP 
xGROUPS wh how, 
15 CALL RRADFPL(IEND?S) : 
16 LUCLENp? FO.4) Go 70 980 : 
17 §0 CONTINUE 
PR Gn a a a eS Fe 
9 c 
34 ¢c BESTN GEOUP LOOP 
32 ¢ 
33 DO 1000 NGwNFGAD,NLSPP 
NGRIELPaKG 
25 WRITE (6543)°REGIN LRU GRO pH", N35 
36 43 FOAMA’LY 
17 ¢ 
S2T L2Y AN SRU MWRADER DATA 
19 c 
10 CALL BRADP ENGP 
4 I¥ELENDEFQO,t)G9 TO 98 
12 ¢ BEGIN REPLICATION LMo? 
3 ¢ 
4% DO 99G KREPLS1,iR%P% 
LY TECIPWNT ET, 1) WRITES, 13) Heer NEE UNS ARE 
? of 
’ ¢ 
8 c RESET JOBS CQUNTER 
€ 
10 NJ0B™1000 
1 ¢ | 
ZNUSLIALIZE THE FVUPURF Fyents Lrst 
if [4 ep et a ee ee ee 
iL) CALL INPFEL — 


INITIALIZE pPPoT 


at SS Sat be) Pa 


ly 
t 


Sa er Se eee 
ft Of 410907079 18.521 -s 


9 NSRUSALT RN] 
1 CALL wOSET4 
12 LERIP ANT. 0,1) VRIoe(o, Pata’) ‘ 
13 Cc 
Di rE od hay ikon aaa ain ae x ae Tashieeos: 5 cee . 
15 C we 80 00S 0806 6 OF TAHOE ESE E® BOS SOR CHACAODTSAOOSCSe 
16. CO OE OM AFTER LOOP UU seg Ses te Se halle Seca sale ts SI ee 
17 C 0 00 00828 e nce aoe MS RAE OT CERT SEY ECel aon wasenGa 
pO a eee 
19 VO YC TOTRBE1,LTIOTR 
20 LEENVeELOTR ; 
21 Cc 
INITIALIZE BASE PROBABLLITY ARRAY CPROSB 
23 c 
! CALL Pang Le > 
25 € 
27 Cc LYITIALIZY BASE BVE*T CSYNTERS 
28 
29 CALL NUSET2(TTINV) 
‘ LOOP THROUGH BACH L®Y FAYLURBEL), WHERE L B® 4,2,,.,,LRR8GN 
31 ¢ 
IFGLYRNT, £9,41) CALL SkUPRT 

33 ¢ 
34 Cc poe 
35 Concowndnonsencomaealtboyn LAN PASE CONDEMNATICN AND AIS CEWERA TSS 

¢ 


TFELAHGN, GT. DICALL DRUEVT(LERGN,LATS,NJOE, 


C 
39 ¢ GENERATE PERU VRTS eEVgents, IF ANY 
49 Cc 
44 TFELNRTS GT, OJCALL URUEVTI LYRIS, NLRUN,NIOB, 
4 Cc 
43 Cc GENERATE ZR VEPO? *£P Gen RVENTS, IF ANY 
44 Cc 
45 TOOVRLBRGNELDCONN 
+6 TEFELDEGN GT,FICALL LRURVTCLORSN NTOOV,NUCRs 3) 
47 Cc 
48 aguexzezSesasease PND OF LAU gVe"T GENERATION stareeeutissane 
49 Cc 
30 510 CONS INU? 
= ¥ R Se Ly 
52 WRITE (OsDATA1' ee one ee Aa2 
53 CALL SRUPRT 
RY §n0 CONTINUE 
35 Cc 
56 Cc WVENERATE INDEPENDONT SRU FVFNTS, IF ANY 


’ i) Qe ee 
38 CALL SRUIND 

: ge or a a es ee a ee ga 

. 5 peas Diithes ote e 


2 oo — i .-.-s# ee Ba Eg ee | Eg Se Bes a OF eh nee ae ae ee Sa ee a ® SE ee ea 
QO ST IT TE Nas ta te ge SNe Ta Oe 8 Bren Re Bet E Sy Mba Se a aa, 
Qe Mae ipl J Siete, Dig IP Rie ea eS ie | i Be ca Se, 


£01 41007979 14.521 GS 


$4 c REMOVE ALL EVENTS FROM THR FEL, AND WRITE 
THEM TO THE ByOGRN5uS FVENT PILE, AT FND, 
§3 € Ge TQ 700 
oTelt ) IN 4 
55 c 
$6 c RECORD UAX FNTAlES To THE FLBLL: 
$7 c 
: FEL@NAX(MAXPF t 
69 € 
10 c REMOVE EVENTS PS0Mn Tur Fo ein” 
74 c 
NDe: ® 
73 IV GHENTAY, LEO) GO TO 700 
u IFENTIME.GT,IGEND) GO TO 700 
75 CALL REMOYE(KTIMY, KILP RP, KPSN, KOTY,KPRI) 
: R ° Wk af KTUME KYYPE KFS! ,KGTY,KPRI 
9 617 FORMATE "RENQVE*S* #98, By8) 
78 IPEXOUT BO, TPRRITE(UPRITME KTYPRAKPSN KOTY pKPRI 
79 TFCLOUT LEO, 7) KNTOUTEKNTOUTS4 
’ [ Je) Oo 666 
81 700 CONTINUE 
83 c SUD OF QUARTER Loop 
Bu 
a5 IFQIPRUT, 20,9) HAITE(O, 703) (T9TR, 181.8) 
86 703 FCRMAT( BE Peewee END GTAP, TIS /2¢25( Meenn”)/)) 
67 Cc 
98 800 CONTINUF 
a9 Cc 
20 c SCHEDULE TYPE 70 PYTNT.., SEND OF STMULATPD peRTOn™ 
34 c 
22 KTINE&SY9999999 
93 KTYPE16 
KYS\= | 
95 KOeYs0 ~ + 
96  RPRIEO 
9 LEUTRANT EDL TIWRITETOS STI IKTEME RUYRE RFS 9SROTY KORY | <7 ; 
98 TEC TOUT EQ, A WRITE(GIKTIMESKTYPE KEEN, KQTY -KPRL . 
99 LE ETOYT SEO, TKR TOUTOR UT 
0 Cc 
02 990 CONTIANYUN 
Sse. > SC ee Pa ee Oe Pay oe ee eee SS ee as Pe, See eS oe ae Se 
04 c SNS OF GROUP 100? 


6 1900 COUTIAUE 


@ 
a 


END OF DATA SUT GENERATION 
So > 6 as, 
40 REWIND 08 


ry ~ WHITES, TS) ERD rE 
42 WAITE(6,43)PHAX ENTRIES TS THE FLPLL a MAXFSL 


A ee cee es aE Genes eee een meee YA tee nn ee NS | ce ne me ee ee 


CO ee oe 6 ee ae - 2 RETR eee 


a ce A a Ne ew 


- Utena eter tape t ee at poset Aare 
Pea 8 ae Si ae ness Seek ass a BE BY 

pie i eg Tg og * oe OS OS Si SEY “hs 

ES Se et et ee 

ete Me ‘o. See 8. 2 > Bate - 


a 
» 

a 

‘ 


oe ee SRE SAI oo 


, T O04 1107979 140 27 B 


z 413 —WREIR (COLI) THM, OF KVSLTS WRETECN FO RROG FILE =*, 
. L | ene Caeee —LALOUP ie res reas 
yO 19 ¢ 


47 980 COWL Le 


1% REWIND (4 ey te en rere 
2 _WeiSe(o,13)"kEaD FuroOFer{ry Sy 07, STOP Bila.” 
24 WHIZTE(O,13)"7 AST TR" HEAD WASH" Fawesy 
- TOL 
23 ¥ND 
th 7 MEMORY AVANDED, LG” SEIBLTS Oe cones optyoN FOR RYT RUM 


ee er En ns RY 


er nr ee 0 we creme een ee metres | 5 mete mere tee 


ee Se ae ge ere ae as Oe ae ial a ae aa Re a ty 


e 
. 
‘ 
. 
. 
. 
‘ 
. 
’ 
Uy 
, 
Uy 


| t 4 
do, % 
— 25 
Baty 
cen Subroutine: LRUEVT 
4 = Functions 
iS 
as This routine controls the generation of all LRU exogenous events for the 
; 3 current quarter. 
; 
ae Calling Parameters: 
NOLEFT = Total number of LRU reparable generations to be simulated 
ee for the current quarter. ; 
r LRTS = The number of these reparable generations that are to be 
Re: repaired at the current location. 
st 
NJOB = The last job number assigned to a reparable generation. 
| MODEF = = _— Mode of Failure Flag, where (1) indicates base condemnation 
7 or RTS events, (2) indicates a base NRTS event, and (3) 
au 
a indicates a depot rep gen event. 
ns 
re Description: 
‘ For a discussion of this routine, see the Events Generator Chapter of Volume I. 
t a) 
‘ Ke 
ae 
c 


we -- get ann Sara ae Lg ester! (eee Seis, See depen eg So BE Os em Bs Ss Bre SNS ire 


este Sen earl Wot else are car vet pae ss a fi dai, SA aa loon a oe Se 
sp) LIP RN Sol Pia dl Ie SE aE Ee aE EPI OE OP TT a OK Oo 


= ERA oe ree Tee a eg eg EEE © ate aa Rea eve ee peor ee sage iat rea OMe at ge ng a eee Soe Da AEP OR BEG PR nT i 
04 -$0020079 — 10,329 -,8 —-GESBRATE 2po aup_sbu EYEATS 0, 


*LAUEV2,5 GENERATE LRU AND Su EVENTS 
\-___#e@S@¢OGRMSRATE ZLOGENOUM EVENTS POR THR CURRENS QUARTER... _..... 
SUBROUTINE PRUETT CNOURET. LATS, WIOB,MODEF) 
Li eC RAGE Lau VENTS, WHERE MODEFS _ een die hehehe, 
: c 4 @ pASE CONDEMNATION avo BTS BYENTS 
’ a 
’ ¢ 3 ws psepoT REP GFX EVENTS 
a Bi ah er ne Sn re 
) CONMOW/INT/IWT C20) 


2 COMMON/TQPA/IOPA(1) 

CONNON/HBRTS/MBRTS( 1) 

an ; 

5 COMMON/HBCOND/WBCOND( 1) 

| Reecnrem ae roam om Oe ne a es ree eee — md 
3 COMMON/ ROSRUP/WOSRUP( 1) 

) CONMOB/IppTT/IppTT( 1) . 

1 —.. —...-. COMMON/TBRT/TBRT(1) . ud? WAS Sede 5 Boe hepa aa, ES Se ia ee 
2 COMMOW/LDCOND/LDCOND 

3... . _ COMMON/LACONT/LDCONT | de eats stat SNS aoe oat sari acti iaseh cs AA Cie SU) 
4 COMNON/LDRGN/LDRGN 

2 

5 CORMON/MLRUP/HLAUR 

Paces a a ee a 
8 CONMOB/LCVGNT/LOVGHT 

: Peer : Tt ne er Ee OS eevee 
’) COMMOK/LERTST/LYRTST 
2 c | 
Bs oe COMMON SEI OTE PERO Rn ee ee 
4 COMMON/ITDAY/ITDAY | 
3... =——tstsCC MM ONSNBASES/SNBASES 
6 COMMON/ITINY/ITINY 

r IFCIWT(4) EC, T)WRITE(O, 13) 8eeeeeRTER LRURVE wen NOLEFTS", 


9 ___g_sMOLEFS," ‘Lersee,zars,” _MgoRaY,NJOB." SODEPar,nopRr. 


0 & . povchsrenclcuss as Lovort™, Levant," LogePT®, 
ht OR aa eh aren een ar Wats LO a catt Dey Seas Ack ks eck caw oe igh ae ane ge oer eat 
2 43 FORMAT(V) 


& IQTReITINY 
I a ee ed ll to at eel a ees 
6 Cc START EVENTS GENBAATION LOOP 


_______._WUMNBSNOL Nis sa Aa EB ts Cee tr RS See ORR ee Pe 
DO 9020 LLL#=1,RUMB 


“NJOBSyJOBe1 


SST ee Sm ee Pw Deter e arate teats Pay 
Ge ee ee Be we Be mw te 


' 


4 ¥ 
f 


TgTaB AT? 


ol EE ecoba  DE NED ve 


a 


ior ane 
ier 


~ i oe o7 Ps gee as et ae Fee ae TT 
Bo TT te re me en Fe i at ut ot a Te OOP Re Ra: See a. ~ 


SSeS ae eee aera eet ee eaeae = 27 

& ro 

Bi a rt a ce eh st ahr et eee cay oes a, ge ea 

6 LPCLWT CH) BO, 1) WRITECE S2IINOLEPT LLL, NICS, NODEF 

7 .. ...223 FORMAT(® wOLBFT@=",IB," Leue*,ry5,% wgoe=",t5, _ 

8 & *  noDBP=®.z5) 

Qs contr nUE Cee ERAT INOS Sree ae 

0 c 

q CC .. ‘ : eh 2 See: ee ee te Ret EAE 

2 C MONTE CARLO TO DETERMTUY THF AASE NUNBER AWD LAU Stock 

3 © . . . KERPIRG UNIT AGBOCTATED WITH THIS FASLURB, = 

4 c 

he CR Re nn a ee 

6 C 

7_..-__.____IPCMODEP 20,0) NSKLEU@NB3¢ sis 

PY IF(KODEF,BOs3) HSKLEUSRBASES©2 

gq  . aOps v = 

0 IPCINVT(W) BO. TERT MET O “WRee,nB,* OSKLEUE*, NSKLRU | 

| 

c COMPUTE PAZLUBS TIM? FOR THIS LRU,ASSUNING | 

3. ¢ FAILURE EVEWETS ARP UNTFORNLY pISTRIBUTED THROUGHOUT = 
C A QUARTER, ee 


iS Se Pam Ee De ar Ree eRe a Pee Oe a RT, 
§ ITSPRANPU( 2) *ITOTAR 
ITINBe(TOTReI)*ITOTR + F 


¢ 

a Ss sh 

: | 

-._-—..—_S PEMESETINE ee ata ae na ea ae con res a 
CALL BNTER(ITING, 1UePSKLED, 4, NJOB) 


4 


Cc 


eon a a ane 2: 


c ee ae on | ee 
G ._. .. . SCHEDULS A REQUTSITION TO REPLACE THE FAILED LAU 
Cc 


WEE E ld We OO 
’ H ¥ 
i 


— _...-SERUBelT Ine + 410 gies eee a 
CALL ENTERCJTIME, 1,NSKLRUL9,1) | 
sages : BRANCH BASED OW PAILURE MODEEMODEF), 
rn es ne Ae ee ne a a 
2 Go TO (109,700,600) uOnSF 
t RR are! <A ten 


; C BTS EVENT OO 
eR ens = eet re ay ee A oe ar ee . 


5 ¢ 

2... ._..100 CONTINUE ele Vine E EN Placa et STs ttt Eig Cae NS ee 
} CALL ASSIGN(NOLEPT,; NOGRUP, HOTEL) 

Fo 2 -EPGINT(H) 98001) W R229 666227). teetusvaneianebed sane? tute eee caesas ae 
) ‘3927 ene ie Pe 28082) 

a ___AT THIS POLK t wOTBE(R) Bouars THE NuMBER 

? ae. BASE sEPuats abnnnations H : : Siac. : r) eecrh ED 

} eo WITH THE CURABWT LRU REPARABLE GENERB NE FOLLOWING 
1 ¢C LOGIC FURTHER BEYIWES THE FaILUne TYPET, Aid SCHEDULES 


wa wow + ey 


ay rs 
pT Se th a tee) 


easy fe8 


ae 


0,0 8, 04, whey sy ats 


if net 


LP §. 


PT ad 


TLE 


were mm ee me ee ee rm ee ee re oe ee ee eee ee ere oe 


tet wt tp tg wn i et 
Smile ta fete ek Fe a fg fe. 


04 10020079 1902329 oS} OBUSRATE LAO AMD SRvo EYELETS 


c __ BLL RELATED RSQVISITION. AZPAIR. AND CONDEMNATION acftous, | 
A ¢ : 
’ c 
’ ¢ FAILURE BERUSEO: at TrYs LOCAt TON 
ee as Ore ate ee i ae me eee behead al ees 
) Cc 
te s ’ ' 3 

2 Cc IF wot, GO To 300, 
re ae ert Sere 
‘ LRUREPS 4 
, ANS 
5 PRISPFLOAT(LRLS) /PLOAT( BOLEPT) 
3 c | | 
2? . - « gn” VE « 2” 80 
) 8 © pritge?,PRTS," LRUREPs", LRUREP 
1... -_ERCIWT(H), 80,1) MRITE(65909 
2 44 PORNAT(° eoscececBOTB LROREPeD MEANS LRY IS CONDEMNED. * 9 
FY TECK LE, PRTS)LRTSPELRTS = 4 
a as oh aiatelcone ee Test ak Bec RS ee 
5 Cc COMPUTE THE TOTAL ‘PARTS (NBEBD) NEEDED TO REPAIR THIS LAU. 
| oe eb on tee NaN Rate aetna sates 2 as ee ee ea en nae 
3 WEBEDSO 
) NREEDSUKEED+NOINL(K) 
qs 10 CONTINUE 
2 Cc 
2.2 et eR ZS TO 
4 IF(LRUREP.LE,9) GO To 300 
Oh i ie a ie 
6 c = 
7... eNO JERD= SEHEDE 
8 c HEPAIR COMPLETION EVENS FoR BTOCKXIREING scanee NSKLRU 
NE «teen nee er nem ence at ae ae Oy 
0 IF(NNEED,GE,1) GO 70 200 
1s TZN Re T Inet ERT (NSKLAD)S 
2 CALL ENTER(ITINEs 160 ¥SKLAU, 4.8908) 
i: ae us es seek wee Nh te a ah tase a 
4 Cc “COMPLETE LRU ‘veer SCHEDULING, 
§. ax: ies ier. . Boe ox cat i ates ee 
6 “60 TO 9000 
SER aed =f oc Ee eat A ree SP Rd one ee PO EN 
8 c THERE HAS SEER AR SAU PATLURE. THE FOLLOWING LOGIC 
9 ¢___sisi‘i‘(“#s(# i. SCHEDULES ALE RELATED RPS, NRIS¢ CONDEMNATION, 
9 Cc AND REQUZSTITION AND RBPATR CONPLETION EVENTS, 
Fe Gh aN eh ct to en ane Sd Se EN a Fa 9 ee a Ae 
2 ¢c 
3 F ele DD di 
4 c 
3 c SCHEDULE “A BEGIN WAIT" BvEnf FOR THE BUY = 

¢ 


fe EE ol 


a a Or oie ar “ys Pes A a ee ee, ae ae eee elt te 


a en ee ae Dee 


OT EE TE a a at a a re 
se ahet lat cer ee cee eh ee ie a a ee re 


¢ 
CALL SUTER(ITINE, 160 8SKLAU NNLED,NdOB) 


2 ¢ 
: a ; t H 
r" Go 70 9000 
6 c Lau IS SO BE CONDEMNED 
Y Reape ~ See 
8 300 CONTIAUE 
; ¢c SCHEDULB LRU CORDBANATION EVENT(BVENT CODE 15) 
2 ITINEBSITINE+ 16 
= -—g—— Ebb ENTER STZNEs Se BSELRD LIA NIORY Bo ay, 
§ ¢ _SCHEDULB RELATED SRU rVPNTS 
6 c 
Tie Ne OER oe ee 
8 G@ To 9000 
ar Or a a 
0 ¢ 
1. Seussulaseteanceserseuets®esesy, Ry PEPOT BEP GES 
2 c 
\ es TI be tM earns Sra ines Bee TRY a RES ah te Oe cee SET 7 
4 ¢c 
§ ig .___COMONZE CARLO 20 REPERnrwe ry BeP GEX 3S 
6 Cc A OBRVOT COMPSMRATION 
27 ¢ _s_s——sddEP «OT, GO FO 720 AND WRTS THIS LBY TO THE DEPOT 
8 Cc 
9 en eee © Dk ee Le a eee eee 
0 DCONRSFLOAT(LDCOND) /FLOAT(NOLEFT) 
S| : RaRANDU( 2) 
2 Cc 
2 wn. SPCINT (UH) EQ, TIWRITE(G, 19ICKCCCCDBPOT REP GEN, 
ry r * ““LDAGNTS* ,LORGNT," LORGHe®, LDAGH, aie: 
5 a... _"  EDCOWDe">LDCOND»”  DCONWR@e%,DCONRe = as 
6 a * Re”, ‘ 
7 Bee “steer 5 ERD ot cone he te MET eee Mbt Cte, 2 ated cd tit! Nhe ah a Nt ee oe eee 
8 Cc UPDATE TOTAL COUNTS FOR DEPOT REP GERS 
eae oe 
0 LOBGHTSLORGNT@1 
ii a A a ce a eo eek eS eee pret a 
2 IPCR.GE,DCONR) GO 70 710 
a hac Oh te Le tak ek th ah ltd ok Sie cee eae ees en td atk 
4 ¢ SCHEDULE A DEPOT CONDEMNATION EVENT 
6 LOCOME@LpCONDe@1 
Dig, bis gS cn QU OL DCO an i en Ne ee, of 
ry ITINESSTIMN+20 


a ee ee ee a ee ey a ee a ete EE I TET. Tg . a 
Borer eens ee a Se Oa ae ek Poe ae ow ew Re ge tae ae ee ae STs a a ae Oe ae oe eG ieee bp Tie * Satis ve ee ‘tad 
a} 

=, 

= 

4 ; 

R, ¢ 

i] O4---40930079 10032918 OEUBBATE 420 AND _S20-BY BETS —____-______. 
bn} ry CALL RUTER(ITEME, 15, NSRLR0 4 MOR) 


OPiaets 


i 
4 
1 


0 Cc 
4 oO EO OG oe a ha oe Bo She BE Ee ee ae SS 
2 ¢ 
Ss Ge ee pe Se ta ct Ss eke es eek ois me eo 
& Cussezstuseusucuassanezsescgect aU HRTS BVENTS 
| 
6 700 CONTINUE | 
I a et ee 
8 ¢ SCHEDULE NPTS VERT 
9 TL A CS A 
0 LURTSTOLYRTST= 4 
| 
2 ITINESITINE+ 30 
§..2.2 CALL ZNTER(JTIBE, 10,NSELR0,4,870B) 
4 Cc 
ee cM TE F_ERD GENEBATION TS CCC 
6 c OVERHAUL COBOgMNED 
Sear amen th = eo es EE Se SUA i eR CEO See ee er aT ee rele ED 
8 720 CONTINUE 
9 DCQNReFLOAT(LOVCUTI/BLOAT(LDREPTSLOVCNT) 
0 ReRANDU(. 2) 
| c Shee, ioe : 5 
2 IFCIWT(K) BO, 1IWRIGBI6, 139"CCOCCE RATS BVENT", 
2 pees. Be 8 ©. "LDR 
4 é ° DCOWRs”, DCORA,” Re*,k 
| er eee ee ee ee NP gy a nee eee a IE EO a TE SOE EEO Ree TEEPE | 
6 IFCDCONR. LER) GO 720 750 
SD see cone, ies Soe Poe eS 
8 c SCHEDULE DEPOT OVERHAUL COBDBMMNATICN EVENT, 
0 LOVCNTSLOVCNT=1 
Acer ae ONG OLAV ONS OS 8 ee a 
2 JTINESITINE+TBDTT( 1) 9ITOAL 
Perea as 1 TIn a 
Go To 9000 
c SCHEDULE DEPOT REPAIR COMPLE®ION 
ep. Reet da aici 258 cent A Me eee TS Pe ie oe ta IR eee RE oe a Eee. mee Er 


750 CONTINUE | 
cy MDMRRTOLORSR TS 4c ce 2c oie: eee we Oe Se ee 


| 
t 


LoveuseLovans= 
bh +I PRT e 
CALL EHTER (TERE, 18040 HOP) 
Bice ete dnt DO! BOG hes Sur SOLS nc i eae eS a A ae 
¢ 
Be es ee a Fees RT ee) CAT hee ISP ec eC 
6 Casnsneas scessneseseneebaeeauetesStD: | OF EVENTS LOOP 
utre 


31 
Subroutine: NOSET1, NOSET2 
“8 Function 
a 
] This routine initializes counter arrays that determine the number of LRU and 
- SRU events to be generated. Entry point NOSETI initializes depot event counters, 


is while NOSET2KQ) initializes counters for quarter KQ. 
im Description: 
c In this routine, the variable N denotes an item number. The LRU is denoted by 


N=l, while item numbers of N=2,N=3,,,.correspond to the first SRU, the second 
SRU, and so on. For definitions of variables used in this routine, see the Events 

i Generator Chapter of Volume I. 
Entry point NOSET1 initializes depot events counters. The routine first 
computes the total number of LRU depot events associated with the variables 
LDCONT, LOVCNT, LNRTST, and LDRGNT by totalling corresponding input 


® variables over ali 16 quarters in the planning horizon. Next, the routine checks if | 
the total number of depot condemnations (LDCONT) exceeds the total number of : 
depot reparable generations (LORGNT). If so, LDCONT is reset to LDRGNT. 

x Next, similar calculations are performed for each SRU. Finally, the routine checks 

. if the total number of depot level SRU failure exposures exceed the number of SRU 

is depot reperable generations. If s0, the excess failures are assigned to a randomly 


selected quarter and program control returns to the calling program. 
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Entry point NOSET2AKQ) initializes counters used to simulate reperable 

generations for quarter KQ. The routine first sets the LRU counter variables 

LBCOND, LRTS, LDRGN, LNRTS, LBRGN, and LDCOND to the corresponding 


input variables associated with quarter KQ. Next, the routine similarly initializes 
the SRU counter variables NOSRUF, NBRTS, NNRTS, NBCOND, NDRGN, and 


NDCOND for each SRU. Program control then returns to the calling routine. 
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‘ Subroutine: RANBAS, RANBS! 
Function: 
: These routines uses Monte Carlo techniques to determine a randomly selected 
‘ base. 
Description: 
Entry point RANBSI(IQTR) computes the cumulative probability of a failure at 
a given base K during quarter IQTR, and records the corresponding probabilities in 
the COMMON variable CPROB(K). This routine is called at the beginning of each 
* simulated quarter. When a randomly selected base is needed, entry point 


"2 RANBAS(NB) is called. This routine first obtains a uniform random number R in 
: the range 0 to | by calling subroutine RANDU. It then does a table look-up using 
the base probability array CPROB to determine the base NB corresponding to the 


of random number R. Program control then returns to the calling program. 
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40 
Subroutines READFL, READF1 


Function: 


This routine inputs D041 data describing the characteristics of individual LRU 
and SRUs. The routine is used by both the Events Generator and the Levels 


Computation System. 


Description: 


Entry point READF 1 is called first to rewind Item Data file 07, and to read 
the first record on this file. Entry point READFL (IENDF) is then called to 
interpret the previously read record. The parameter IENDF is first set equal to 0. 
If an End-of- File is encountered during subsequent read operations, IENDF is set 
to 1 and program control returns to the calling program. 

In READFL, the previously read data record is decoded to determine the 
record type. Logic then branches to the appropriate logic for decoding that 
specific type of input record. After decoding the record and setting the values of 
the corresponding COMMON variables, the routine reads the next record from file 
07, and decodes it. If the record type of newly read record is different from that 
of previous record, logic jumps to statement 2000; ctherwise logic again jumps to 
the decode logic described above. 

When a new record is encountered, the rout. .e checks (in lines 2120-2260) if 
the input data lies within “reasonable” ranges. If not. the associated variables are 


reset to standard values. Next, the routine uses the input data to set major time 


: 


arr eee | 
Sig te ghia gee ae 


4&1 


variables used in the RIME model. These time variables include the base repair 
time, depot repair times, and various transportation times. 

If the flag IOUT equals !, subroutine READFL outputs an item identification 
record to the Exogenous Event File (File 08). This option is not used when 
READFL is called by the Levels Computation System. 

The above operations are continued until all input records for the current 
LRU/SRU family have been processed. After all records have been processed, if 
IOUT equals 1, the trailer record of zeros is written to File 08. Finally, logic 
returns to the calling program. 
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{ a Subroutine: SCHIND 
: Function: 


This routine schedules independent SRU Events. 


Calling Parameters. 
: . 
: K = The SRU involved. 
; = NUMB =~ The number of events of the current type to be generated. 
: KTYPE = _ The event type to be generated. 
: KQTR = _ The quarter in which the events are to be generated. 
KLOC = Event location code. If KLOC equals 0, depot rep gen 
7 ae events are scheduled; otherwise, the events are scheduled 
at a randomiy selected base. 
a | Description: 


= Subroutine SCHIND first establishes a Stock Keeping Unit number for this rep 
ah gen. If KLOC equals 0, the SKU is set equal to the Stock Keeping Unit number of 
i the depot location for SRU K. Otherwise, the SKU is set equal to the Stock 
: ve Keeping Unit number for SRU K at a randomly selected base. The reparable 
; generation counter NJOB is then incremented, and a Monte Carlo process is 


employed to establish at a randomly selected time within quarter KQTR. Sub- 
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routine ENTER is then called to place the reparable generation event (Event Type 
14) and an associated requisition for a serviceable replacement (Event Type 1!) on 
the Future Event List. The program logic then branches depending on the type 
(KTYPE) of event to be generated. 


If a base condemnation or base repair completion is to be scheduled, 
subroutine ENTER is called to place appropirate Type 15 or ‘Type 18 events on the 
Future Events List. On the other hand, if a depot reparable generation is involved, 
a Monte Carlo process is used to determine if the asset is to be depot condemned. 
If so, a depot condementation event (Event Type 15) is scheduled to occur at the 
depot location. Otherwise, a NRTS event (Event Type 19) is scheduled to sinulate 
shipment of the asset to the depot. In addition, when a NRTS event is scheduled, a 
Monte Carlo process is used to determine if the NRTS asset is to be condemned at 
the depot, or if the asset will be reparable at that location. If the asset is to be 
condemned at the depot, an appropriate condemnation event (Event Type 15) is 
scheduled to occur at the depot after an appropriate transportation time. Other- 
wise, a repair completion event (Event Type 18) is scheduled to occur after a time 
delay which allows for the transportation of the asset back to the depot, and the 


repair of the asset at that location. 


In all of the above cases, appropriate counters of SRU cvents are reset after 
each of the Monte Carlo calculations to ensure that the correct probability values 


are used in subsequent Monte Carlo computations. 
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Subroutine: SRUEYT 


Function: 


This routine schedules all SRU events associated with the current LRU 


reparable generation. 


Calling Parameters: 


LRUREP 


= LRU Repairabilit, Flag. LRUREP = 0 indicates the LRU 
is to be condemned, while ' RUREP =' | indicates the 
LRU is reparable. 
NSKLRU = The Stock Keeping Unit number for the LRU reparable 


generation. 


Description: 


For a detailed discussion of the functions of this routine, see the Event 


Generator Chapter of Volume I. 
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Subroutine: SRUIND 


Function: 


This routine scans the SRU event counter arrays, and schedules independent 


SRU events as needed. 


Description: 


This routine scans the events counter arrays for each SRU. The routine is 
called after all LRU events have been generated. If any of the SRU arrays are nom 
zero, the remaining SRU events are assumed to occur independently of LRU 
reparable generations. Consequently, subroutine SRUIND places appropriate 
events on the Future Events List to simulate these independent SRU events. 

If the counter of SRU base RTS events (NBRTS(K)) for SRU K is greater than 
zero, subroutine SCHIND is called to place NBRTS(K) type 18 events on the Future 
Events List for SRU K. Similarly, if the SRU event counters NBCOND({K), 
NNRTSAK), or NDRGN(K) is greater than zero for any SRU K, subroutine SCHIND 
is called to schedule the associated type 15, 19, and 14 events, respectively. 
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